home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Schatztruhe / Bundesliga / Install_BL3000 < prev    next >
Text File  |  1995-11-29  |  4KB  |  134 lines
  1. (complete 0)
  2.  
  3. (set harddisk 0)
  4.  
  5. (if
  6.    (askbool
  7.       (prompt "Wo möchten Sie das Programm Bundesliga 3000 installieren?")
  8.       (help @askbool-help)
  9.       (choices "Auf Festplatte" "Auf Diskette")
  10.    )
  11.    (
  12.    ; hard drive part
  13.       (set harddisk 1)
  14.       (set @default-dest
  15.          (askdir
  16.             (prompt "Bitte wählen Sie das Verzeichnis, in dem "
  17.                     "Bundesliga 3000 installiert werden soll\n"
  18.             )
  19.             (help
  20.                     "Sie müssen für die Installation das Verzeichnis "
  21.                     "festlegen, in dem das Programm "
  22.                     "Bundesliga 3000 installiert wird\n\n"
  23.                     "Auf dem ausgewählten Laufwerk muß ausreichend "
  24.                     "Speicherplatz zur Verfügung stehen, d.h. ca. 1.3 MByte.\n\n"
  25.             )
  26.             (default "SYS:Bundesliga_3000")
  27.          )
  28.       )
  29.  
  30.       (if
  31.          (= (exists @default-dest) 0) (makedir @default-dest)
  32.       )
  33.  
  34.    )
  35. )
  36.  
  37. (set @default-fontdir
  38.    (askdir
  39.       (prompt "Bitte wählen Sie das Verzeichnis, in dem "
  40.               "die Zeichensätze installiert werden sollen\n"
  41.       )
  42.       (help
  43.               "Sie müssen für die Installation das Verzeichnis "
  44.               "festlegen, in dem das Programm Bundesliga 3000 "
  45.               "später seine Zeichensätze finden kann.\n\n"
  46.       )
  47.       (default "FONTS:")
  48.    )
  49. )
  50.  
  51. (if
  52.    (= (exists @default-fontdir) 0) (makedir @default-fontdir)
  53. )
  54.  
  55. (onerror
  56. )
  57.  
  58. (if (= harddisk 1)
  59.   (
  60.    (set sourcefile ":Schatztruhe/Bundesliga/Bundesliga 3000")
  61.  
  62.       (if
  63.            (= (exists sourcefile) 0)
  64.                 (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
  65.       )
  66.  
  67.       (copyfiles
  68.          (prompt "" )
  69.          (help "")
  70.          (source sourcefile)
  71.          (dest @default-dest))
  72.  
  73.    (complete 30)
  74.  
  75.    (set sourcefile ":Schatztruhe/Bundesliga/Bundesliga 3000.info")
  76.  
  77.       (if
  78.            (= (exists sourcefile) 0)
  79.                 (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
  80.       )
  81.  
  82.       (copyfiles
  83.          (prompt "" )
  84.          (help "")
  85.          (source sourcefile)
  86.          (dest @default-dest))
  87.  
  88.    (complete 35)
  89.  
  90.    (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Bundesliga/1. Bundesliga 94") (dest @default-dest))
  91.    (complete 45)
  92.    (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Bundesliga/2. Bundesliga 94") (dest @default-dest))
  93.    (complete 55)
  94.    (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Bundesliga/1. Bundesliga 92") (dest @default-dest))
  95.    (complete 65)
  96.    (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Bundesliga/1. Bundesliga 93") (dest @default-dest))
  97.    (complete 75)
  98.    (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Bundesliga/2. Bundesliga 93") (dest @default-dest))
  99.    (complete 85)
  100.    (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Bundesliga/1. Bundesliga 91") (dest @default-dest))
  101.    (complete 95)
  102.   )
  103. )
  104.  
  105.       (if
  106.            (= 0 (exists ":Schatztruhe/Bundesliga/fonts/topaz1.font"))
  107.                 (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" thisfile))
  108.       )
  109.       (if
  110.            (= 0 (exists ":Schatztruhe/Bundesliga/fonts/topaz1/8"))
  111.                 (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" thisfile))
  112.       )
  113.  
  114.       (copyfiles
  115.          (prompt "" )
  116.          (help "")
  117.          (source ":Schatztruhe/Bundesliga/fonts/topaz1.font")
  118.          (dest @default-fontdir)
  119.       )
  120.  
  121.       (set steuerfontdir (tackon @default-fontdir "topaz1"))
  122.         (if
  123.            (= (exists steuerfontdir) 0)
  124.            (makedir steuerfontdir)
  125.         )
  126.       (copyfiles
  127.          (prompt "" )
  128.          (help "")
  129.          (source ":Schatztruhe/Bundesliga/fonts/topaz1/8")
  130.          (dest steuerfontdir)
  131.       )
  132.  
  133. (complete 100)
  134.